ASSIGN M|CIi(FllE#MSS#fDOOCl) 
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SET 1 
SYSTEM UTS 



UHIFLQ EOUfS 



M0S MULT I .BATCH RESftURCE SCHEDULER 



NAME I MBS 

PURP9SFI SCHEDULES BATCH JOBS TOR EXECUTION BASED BN THEIR 
RESOURCE REQUIREMENTS 

DESCRIPTIONS 

THE MBS MODULE^ **ART OF tNE RBBat QH0ST# CONTAINS TWO 
MAIN ROUTINES^ MSSOP (REPART) ANo MSSt THE FIRST Op 
THESE* CALLED AS MBSOP BY RBBAT TO OPERATE ON NEWLY 
SUBMITTED JOBS AND AS RePaRT BY MBS TO ACT ON ALL JOBS 
WHEN THE PARTITION ATTRIBUTES HAVE BEEN CHANGED* I^ 
rCSPOnSIBlE FOR 8ETTINQ THE BITS IN BhIPART ThAT TfeLL 
WHETHER A GIVEN JOB IS ABLE TO RUN IN A GIVEN 

Partition based on the match of RE30URCESf the majn 

ROUTINE^ OF COURSE IS MBSt IT IS CALLED BY RB8ATM 

EITHER AS A Result of a ghost function code in a combui 
Requesting an mbs from the monitor* or when a new 
Batch job has been added to rb8at»5 tables # rbbath 
also calls mbs to start up batch jobs after a crash* 
MBS Performs the following tasksi 

1) PLILK • THE PARTITION ATTRIBUTE LOCK IS TESTED* 

IF IT IS NON Zero control is changing Partition 

ATTRIBUTES AND MBS EXITS, IF IT IS ZERO MiS SETS IT 
TO PREVENT ATTRIBUTE CHANGES WHILE MBS IS RUNNlNQt 

2) PLICHG • THE PARTITION ATTRIBUTE CHANGE FLAG I^ 
TESTEDf IF IT IS ZERO MBS CONTlNUESt IF IT IS NeN. 
ZEROj IT CONTAINS SET BITS FOR EACH PARTITION WHOSi 
ATTRIBUTES HAVE BEEN CHaNQeDj AND MBS CALLS RePART TO 
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UPDATE THE lEQAL PARTITI6N BITS (BM?PART) FOR All 
BATCH J8BSf 

3) MBS DETERMINES WHETHER A BATCH J8B C9ULD PBSSl^lY 
Be run N9W THIS IS D9NE WITH TWO CHECKS? 

A) IF ((StBUAISU(8|BU|S))t(SiBrt$) <« Q 
EITHER N0 MBRE BATCH USERS ARE AllOWgP OR THERi. 
ARE NONE TO RUNt 



B) IF GIjFRe i 
AVAllABlE TO M6VE 



THERE ARE NO GET I TA^lE SIOtS 

Resource information into coREt 



IF either of these checks fail? m8S exits 

4) MBS N9W STEAIS A USgR SIOT FROM THE SNUll STATI. 
IF A JOB IS SCHEOUIED IT Will USE THIS USER NUMBER* 
AND IF N9T IT Will BE RETURNEDt THE SIOT MUST BE 
STOlEN AT THIS TIME TO BE SURE ONE !S AVAllABlE TO 
RUN THE JOB, IF THERE ARE NONE AVAHaBIe* MBS EXITS 

5) A BIT MASK IS BUIIT WITH A BIT ON F8R EACH PARTITI 
WHICH IS NEITHER RUNNING NOR IOCKEP AND WHOSE MINIMUM 
RESOURCES ARE AVAllABlE. 

6) THE HIGHEST PRIORITY JOB IS SELECTED AS THE CANDIP 
JOB (CJ)f WHENEVER A CANDIDATE J0» CANN9T BE RUN, MBS 
UPS HIS PRIORITY BY THE PRIORITY INCReMenTi AND SeIECT 

the n|xt highest priority job as the new cji an e^cep 
to this is when the cj has »ff priority* in which 
Case if the cj could ever H run mbs exits without 
attempting to schedule other jobs. if the batch queue 
is exhausted without selecting any job to run* mbs 

EXITS. 



7) THE CJfS BHiPART IS ANDED 
FIVE ABOVE ANDj IF THE RfSUlT 



WITH THE MASK BUllT IN 
IS Igm, A NgW CJ IS 
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SELECTED. 

8) THE ACCOUNT ar THE CJ IS CHgCKRD AQAfNUT TN9SE 8F 
ALL RUNNING J8BS T8 SEE IF EITHER THE CJ 6R A RUNNING 
jeB SPECIFIED ACCOUNTf IF THIS IS TRUE A NEW CJ 

IS SELECTED. 

9) IF THE CU SPECIFIED 8RDER ALL RUNNING J8SS AND 
THOSE IN THE QUEUE ARE CHECKED AND IF ANY WITH THE 
SAME ACCOUNT HAVE A t^WER SYSIDi A NEW CJ IS SELECTED 

10) THE RESOURCES REQUESTED BY THE CJ ARE CHECKED 
AQAINST THOSE AVAILABLE IN THE SYSTEM AND IF ANY A^E 
UNAVAILABLE A NEW CJ IS SELECTED. 

11) IP THE CJ SPECIFIED SERIAL NUMBERS FOR DISCS 8N 
HIS LIMIT CARD THE FOLLOWING CHECKS ARE MAOEJ 

A) ANY SERIAL NUMBER THE Cj REQUESTED EXCLUSIVE 
MUST NOT BE IN USE OR REQUESTED EITHgR SHARED ^R 
EXCLUSIVE BY ANY OTHER RUNNING USERt 

B) ANY SERIAL NUMBER THE CJ REQUESTED SHARED MUST 
NOT Be IN USE OR REQUESTED BY ANY RUNNING JOB AS 
EXCLUSIVE. 

C) THERE MUST BE FREE SPINDLED (BEYOND THOSE HE. 
QUESTED BY THE CJ) TO MOUNT ANY ReQUeSTED SHARLD 

spiNptES NOT Already mounted^ 

D) THERE MUST BE ROOM IN THE IN.CORr SERIAL 
NUMBER TABLES TO HOLD THE CJ»S SERIAL NUMBERS, 

IF ANY Opr THESE TESTS FAIL A NEW CJ IS SELECTED 

12) THE CJ HAS NOW BEEN SELECTED TQ RUN 
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4 
13) A QKTI TABLE SL8T IS REMOVED FROM THE PREE CHAIN 
AND THE geSS RESOURCE lNF8RMATieN (AND OTHER INFO) IS 
MeVED FR8M THE RBBAT BATCH TABLES INTO iTt 

14 > AVRNQU is incremented F9R ALL MeUNTE^ SHARED 
SPINDLES THE JOB HaS REQUESTED AND THE DEVICE OWNeRSHI 
BIT USRIN) IS SET FOR THESE SRlNOUESt THESE BITS 
ARE TRANSFeReD TO QIJASPN AND EVeNTUaLIV TO JlASPlN. 

15) THE RESfiURCES THAT THE JOt? REQUESTED Are ADDEU 

TO THE Batch current totals 

16) THE JOBts SERIAL NUMBgRS ARE ^'OVeD T© THE COR£ 
SERIAL NUMBER TABLES 

17) THE JOB IS MOVED FROM ITS PRIORITY C^^IN TO RfeBAT: 
RUNNING CHAIN 

18) THE BATCH BIT IS SET IN THE JOBfS UHjFLQ2 AND 

MBS Calls addi to start up the use« 

19) FINALLY MBS RETURNS TO THREE ABOVE TO TrY TO STAR 
ANOTHER JOBt 

REFCRENCF I 

MBS IS Part of the RBBat «3host which aLsb contains 

RBBATm and RBBATRf THE TABUS MBS USES (BATcHj QETI# 
RESOURCEj AVR^ partition, etc,) AR| described in THE 
DATA BASE TECHt MANUALt 
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THE MULTNBATCN SCHEDULER 

SET BHlPART BITS FOR A GIVEN JBB BASi 

8N ITS Re8»U«Ce HcQUIReMENtS 



MASK 
MASK 
MASK 

TABLE BIT 
TABLE BITS 
TABLE BITS 

RBBATtS STACK USED T0 PUSH AND PULL 
INPUTJ DEVICE TYPE USED T0 CHECK 
WHETHER A SERIAL NUMBER IS THE SAME 
RESeURCE TYPE AS ANBTHgR 
I/9I BATCH BIT IS STBRED HERE T© MA 

NEW USER Batch 

INPUTI BATCH DEFAULT EXECUTieN 
PRiaRlTY PASSED TB ADDl WHEN J9B 1$ 
STARTED 

RB8AT »r» PRIORITY UBBs PRI8RITY 

CHAIN INDEX 

RBBAT RUNNING J0»S PRIORITY CHAIN 

INDEX 

INPUTI RERUN BIT IN BwJSDa 

INPUTI JOBeNT SUBMITTED Bit IN iWSSi 

INPUTI AMBUNT in 256THS T0 INCREMENT 

PRIBRITY WHEN JBB IS PaSSED BVER F0R 

SCHEDULING 

I/9I NUMBER 9F BATCH USERS RUNNING 
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SVJRSIZ 
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USED Tft DECIDE WHETHER TQ SCHEDUUE 
INCREMENTED WHEN A NEW JOB IS STARTEi 
INPUT I NUMBER &F BATCH USERS ALLOWED 
T8 RUN USED T9 DECIDE WHETHER T6 
SCHEDULE 

1/81 NUMBER 9F BATCH J8BS IN THE QUE 
USED T8 DECIDE WHETHER T» SCHEDUlEt 
DECREMENTED WHEN A NEW JBB IS RUN 
eUTPUTi MULTNBATCH SCHEDULE FLA^ SE 
WHEN MBS MUST WAIT FOR A QETI TA^^LE 
ENTRY • CAUSES ANOTHER MBS IN 5 ^EC 



STATE INDEX »F 
I/ej STATE HEAD 
USER NUMBER FOR 
I/O J STATE TAIL 
USER NUMBER F0R 
1/9 J USER STATE 
USER NUMBER F8R 
I/8J USER STATE 
USER NUMBER F9R 



UNUSED USER SLOTS 
TABLE USED TO STfcAL 
NEW BATCH J8B 
TABLE USED T© STtAL 
NEW BATCH UBB 
FLINK USED TO STfcAL 
NEW BATCH JOB 
BLINK USED TO BUM 
NEW BATCH JOB 



HIGHEST INDEX INTO RESOURCE TABLES 
INPUT I RESOURCE TABLE USED TO CONyER 
RESOURCE INDEX TO DEVICE TYPE TO MOV 
SERIAL NUMBER INFO TO CORE AND CH|CK 
WHETHER SERIAL NUMBERS ARE SAME DEVI 

iNPUTt RESOURCE TABLE TOTAL ON SYSTE 
USED TO CHECK HOW MANY CAN BE ALLOCA 
INPUT I RESOURCE TABLE ONLINE CURRENT 

TO CHECK HOW MANY ARE IN USfe. 
INPUT I RESOURCE TABLE QHOST CURRfcNT 
TO CHECK HOW MaNY aRE IN USE 
INPUT I RESOURCE TABlE mAX AVAILABLE 
BATCH USED TO CHICK HOW MANY ARE 
AVAILABLE 
I/O? RESOURCE TABLE iATCH CURRENT US| 
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TB CHECK NBW MANY ARE AVAILABLE AND 
INCREMENTED WHEN A NEW %)9B IS SCHePUi 
THAT REQUESTED THEM 
INPUT! RESOURCE TABLE BATCH DEFAULT 

USED T8 Keep B4WIres up to date 

NUMBER BF TAPE ENTRIES IN THE AVR 

TABLES USED TB FIND PACKS 

NUMBER BF ENTRIES T6TAL IN THE AVR 

TABLES USED T8 FIND PAcKS 

FIRST OCT INDEX THAT HAS AN AVR 

TABLE ENTRY USED TB CBnVERT DCTX 

T8 AVRX 

INPUT! AVR SERIAL NUMBgR/FLAQ TAt^LE 

W6RD USED TB CBMPaRE REQUESTED 

SERIAL NUMBERS WITH RUNNING • WQKDl 

BIT 2 USED TB CHICK WHETHER WBRD C 

BE TRUSTED 

BUTPUTi AVR NUMBER 8F USERS CBUNTED i 

WHEN A gBB REQUESTS AN ALREADY M^UNTi 

SHARED PACK 

inputi avr user number • if this is 
nbniZerb the Pack is exclusive 

1/81 batch queue table in rbbat 

priority heads used to MBVE from J8B 
T8 J8B AND RECHAIN TB NEW PRIBRllYS 
f/8j BATCH QUEUE TABLE IN RBBAT 

pri8rity tails used t8 mbve from jbb 
t8 j8b and rechain tb new pri8ritys 
1/81 Batch queue table in rbbat 
pribrity Link used tb mbve from wbb 

T8 J8B AND RECHAIN TB NEW pRIBRlTyS 
I/9J BATCH QUEUE TABLE IN RBBAT 
INCREMENTAL PRIORITY INCREASED BY 
SLIPI WHEN JBB II BYPASSED FBR 
SCHEDULING 
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INPUT! BATCH QUEUE TABLE IN RB8AT 
RBID USEP to check LEGAL PARTITIONS 
AND M8VED T8 QlBJRID 
INPUT I BATCH QuEUE TABLE IN RB8AT 
SYSID USED T» CHECK F8R ORDER RgSTRI 

AND MSVED TB PLHISID 
INPUT I BATCH OuEUE TABlE In RBBAT 
LIMIT CARD TIME USED T9 SCHEDULE AND 
M8VED T8 QIHITIM 

i/sj Batch queue table in rbbat 

FLAGS AND START I^Q DISC ADDRESS • JE 
USED T8 CHECK LEGAL PARTITIONS - SDA 
M9VED TO 6IISDA • BWJSDA IS CLEANED 
UNLESS RRBIT IS SET 
INPUTI BATCH QUEUE TABLE IN RBBaT 
ACCOUNT USED FOR ACCOUNT CHeCK 
I/0I BATCH QUEUE TABLE IN RBBAT 
RESOURCES USED FOR SCHEDULING ANP 
KEPT UP TO DATE FOR DISPLAYS • M<?VED 
TO QIIRES . BYTE IS PRIORITY MOVED 
TO QlBlPRI 

l/Ol BATCH QUEUE TABLE IN RBBAT 
SHARED SERIAL NUMBER HEAD USED T^ MA 
SERIAL NUMBER TESTS • MBS SORTS LIST 
FBR RECOVERY AND RERUN PURPOSES 
INPUT! BATCH QUEUE TABLE IN RBBaT 
EXCLUSIVE SERIAL NUMBER HEAD USEU T8 
MAKE SERIAL NUMBER CHECKS 

I/O! Batch queue table in rbbat 
Partition bitsi a bit on means the 
job qualifies fo»^ the partition, se 

BY MB80P WHEN THE JfB IS SUBM|TTfc,D# 
MODIFIED BY REPART WHEN PARTITION 
ATTRIBUTES CHANGE j 

TO SEE IF THERE IS 

THE JOB IN 

INPUT! BATCH QUEUE TABLE IN RBBaT 



AND USED BY 

A Partition 



MbS 
TO RU 
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9 
SERIAL NUMiER USED T0 MAKE SERIAL 
NUMBER CHECKS • MBVED TO TSERIAL 
I/9J BATCH QUEUE TABLE IN RBBAT 
SERIAL NUMBER LINK USED T6 RUN SfcRIA 
NUMBER CHAINS AND TO SftRT SERIAL 
NUMBERS FOR RERUN AND RECOVERY 
INPUT I BATCH QUEUE TABLE IN RBBaT 
RESeURCE INDEX U§eD TO MAKg SERIAL 
NUMBER CHECKS m CONVERTED TO DEVICE 
TYPE AND MOVED TO RSERlAL 

I/OI QETI TABLE • HEAD OF FREE ENTRIi 

USED TO DECIDE WHETHER T© TRY TO SCH| 

ULE • QETI ENTRY TO FILL IN IS 

REMOVED FROM HERE 

OUTPUTI QETI TABLE .STARTING DISC AD 

(AND JEBIT AND RRBfT IF SET) ARE 

MOVED HERE FROM ttWJSDA 

OUTPUTI GETI TABLE -RESOURCES FRt^M B 

ARE MOVED HERE 

OUTPUTS GETI TABLE -DEylCE OWNERSHIP 

BUILT BY MBS IN BiJASPN ARE MOVEP HEi 

OUTPUT! QETI TABLE .PARTITION NUMBER 

SELECTED BY MBS IS MOVED HERE 

OUTPUTI QETI TABLE .TIME FROM BHJTiMi 

IS MOVED Here 

OUTPUTI QETI TABLE 
MOVED HERE 

OUTPUTI GETI TABLE •USER 
FROM 8NULL IS PUT HERE • 
THE USER NUMBER OF 
OUTPUTI GETI TABLE 
NUMBER HEAD OF THf 



RBID FROM BBJRID 

NUMBER TAKE 
IT WILL BE 
THE NEN JOB 
• THE SHARED SfcRIAi 
CHAIN FORMED *^HEN 
MBS MOVES SHARED SERIAL NUMBERS TO Ci 
IS PUT HERE 

©UTPUTi QETI TABLE .THE EXCLUSIVI^ SEi 
NUMBER HEAD INTO LSERIaL IS PUT HgRE 
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10 
WHEN MBS MevES THE SERIAL NUMBERS T8 
0UTPUTJ mri TABLE .THE REQUESTED RU! 
J89 PRIORITY IS "QVeD HE«E FR»M b^WJi 

NUMBER BF PARTITIBNS IN THE SYSTEM 
LPART#8VJRSU USED TB THREAD THROUGH 
PLBtMAX AND PLBIMIN 
I/8I PARTITI9N CHANGE L»CK • IF SET 
C8NTR8L IS MESSING WITH THE PARTJTIBi 
AND MBS CANT RUN • IF N8T MBS SETS I 
Te KEEP CBNTR8L 8UT 8F THE WAY 

i/e: Partition change flags set »y 

C0NTR8L T8 3h8W WHAT PARTITIBnS HAVE 

BEEN CHANGED • MBS ST8RE^ USER NUMBE 
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STB#6 

LH#6 

STH16 

LB, 2 

BEZ 



name: 



QllFRg 

"8 

QIIFRE 

M8 



♦BAORS 

QlBJPRIii 

BB}R|D#3 

GIBIRIDjI 

BHjTlMe#3 

QIH8TIMM 

B8ICRES 

MBSSCHl 



MBSSCH 



GET QI TABLE SLOT 



GET 

AND 



PRIO 
SAVE 



IN CORE 



wci 



111 

99! 
99? 

993 

994 

995 

996 

997 

99« 

999 

1000 

1001 

1002 

1003 

1004 

1005 

100$ 

1007 

1008 

1009 

1010 

1011 

101^ 

1013 

lOU 

1015 

1016 

1017 

1018 

1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 



11 SEP 08# '75 



05 0012S 

06 00126 
06 00127 

05 00128 
05 00129 
05 0012A 
05 0012B 
05 
05 0012C 

05 
05 0012D 
05 0012E 
05 0012^ 
05 00130 

05 00131 

06 00132 

05 00133 

06 0013^ 
05 00135 



2g5FFFFF N 

2860O01F H 

HS60e27i A 

78200006 A 

4**60O00O ^ 

2S>2oo07D A 

20800001 A 
0012^ 

IgAOFFFF N 

0012U 

3lA4n000 X 
6^^00130 
531A0000 X 
2Q5FFFFF A 
21500000 N 
69100136 
6*^200120 
28200020 A 
6460012C 



05 0013^ 

05 00136 2820O00<» A 

05 00137 38A0O00O X 

05 00138 2gAFFFFF A 



#F* 
•F« 

«F* 
# 



MBSSCH 
MBSSCHO 



« 

#F« 

#F« 
«F« 

#F« 
#F# 
« 
# 

MBSSCHl 



34 
PURPeSFI InCRIMEnTS AVrnOU TSR each pack WH9SE DEVICE eWNERSnlP 

8!T Has Been set in biuspn by mbscs* 



LI#5 AVRTBLNE.l INCREMENT SHARED SER*S 

LI#6 AVRT9lnE*BATAPE»1"^X»20» 

SCSj6 »5 

LB#2 6 

ANDi6 Ms 

SL8j? m3 

Al#2 1 

EQU « 

LN#lo BllASPN«i*6 

EQU • 

CW#10 BT3lTeo#2 

6AZ i#2 

MTHji AVRNOUjS 

Al#5 •! 

CI#5 AVRTBLSIZ 

BL MBSSCHl 

BOR#? MBSSCHO 

LI#2 32 

BDR#6 MBSSCH 



NAME I MBSSCHl 



PURPeSFI MOVES RESSURCES FRBM B4W1RES T0 GlfRES AND DEVICE 
BWNERSHIP BITS FRBM BllASPN T8 QIJASPN 



EQU 
LI#2 
LW#lo 
AIjIo 



4 
BaORS 

•1 



woi 



a; 

1027 
1028 
1029 

1030 
1031 
1032' 
1033 
1034 
1035 
1036 
1037 
1031 
1039 
1040 
1041 
1042 
10#3 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1068 
1059 
1060 
1061 
1062 
1063 



11 SEP 08# 

05 00139 

05 0013A 

05 0013B 

05 0013C 

05 0013D 

05 0OX3E 

05 0013F 

05 00140 

05 00141 

05 00142 

05 00143 



f75 

388onooi A 

2^Bon002 A 

8«C4n00A A 

B9C4n00B A 
6^20013C 

20B00OOO ^ 

3«B00001 A 

2220O003 A 

38C5FFFF N 

BI&C40OOB A 



05 
05 00144 
05 00145 
05 00146 
05 00147 
05 00148 
05 00149 

05 0014A 

06 0014B 
05 OOUC 
05 0014D 



00144 

28600000 N 
78CCnOOO X 

50CC0000 X 

S^CCOOOO ^ 
6^^00145 
28600000 N 
58560000 X 
4i50000F A 
315CO000 X 
6S»400l4F 



LW#ll 1 

SUS#li g 

Al#U (SnRES.l 

LW#12 #10#2 

STW#12 ♦lli^ 

B0Ri2 i«2 

Al#ll QllA8PN«G!tRiS 

SW#11 1 

LI#2 3 

LW#12 BIJASPN*1*2 

STWjis? ♦ll#2 



3^ 



# 

#F* NAMEl 

#F# 

♦F4 PURPesrj 

#F* 

#F# 

#F# 

#F# 

#F* 

#F« 

•F# 

• 

« 

# SWIPF RESOURCES 

HBSQR gQU 
LI«6 
LB, 12 
AN#lg 
STH#l? 
B0Rj6 
LI#6 
LH#5 
ANDjS 
Cl^#5 
BANZ 



HBSQR 

ADOS THE NEW JBBfS RgSBURCE REQUIREMENTS T^ SH|R8CU. 
SClECTS A PARTITION T8 RUN HIM IN# TAKING THE HIQIHfcST 
NUMBERED ONE HE FITS IN. M5VES THE REST ©F THE Jd^ 
INFORMATION FROM THE BATCH QUEUE TABLES TO THE GET I 
TABLESi CHAINS THE JOB ENTRY TO THE RUNNING CHAINt 
INCREMENTS SIBUIS# DECREMENTS S!BF|S# SETS THE BATCH 
BIT IN UHIFLQ2J AND CALLS ADDl TO START THE NEW US£Rt 



SVIRSIZ 

88{CRE$#6 
SH|RBCU#6 
SHfRBCU#6 

$*3 

LPART 

BH|PART#3 

16 

BT31T80#6 

t*2 



FIND PARTITION T9 RUN 



MOi 11 Hi SEP 08i 


«75 




1064 


05 00141 


6^6ool4C 




1065 


05 0014F 


7Si6tn000 


X 


1066 


05 00150 


S^lCoOOO 


X 


1067 


05 00151 


Slicnooo 


X 


106$ 


05 00153 


18A60000 


X 


1069 


OS 00153 


li^ACoOOO 


X 


1070 


05 00154 


38200000 


X 


1071 


05 00155 


S«>ECo000 


X 


1072 


05 00156 


38D60000 


X 


1073 


05 00157 


40D0001F 


N 


107# 


05 00158 


SUDooOOD 


A 


1075 


05 00159 


SODCoOOO 


X 


1076 


05 0015A 


?oOoi?ooo 


A 


1077 


05 00155 


55iDCoOOO 


X 


1078 


05 0015C 


7!52C0000 


X 


1079 


05 0015D 


28800000 


A 


1080 


05 0015E 


7?>820000 


X 


1081 


05 0015F 


79810000 


X 


1082 


05 00160 


78F0O000 


X 


1083 


05 QOUl 


38A0ft009 


A 


1084 


05 00162 


6^300165 




1085 


05 00163 


7SFg0000 


X 


1086 


05 00164 


6AB00185 




1087 


05 00165 


58A60G00 


X 


1088 


05 00166 


6^300169 




1089 


05 00167 


7iFgO000 


X 


1090 


05 00168 


6ABoni85 




1091 


05 00169 


79F0O00O 


X 


1092 


05 0016A 


3«66n000 


X 


1093 


05 00165 


31600000 


X 


1094 


05 OOUC 


6J^40nl6E 




1095 


05 0016D 


4«»60O000 


X 


1096 


05 0016E 


38200000 


X 


1097 


05 0016F 


00000000 


A 


#«♦# UNDEF 


ceM 






♦*** ILLEGAL AF 






**♦♦ ILLEGAL CF 







3§ 



BOR46 


$•2 


STB#6 


QlBjPRT#l 


MTHji 


pln:cur*6 


MTHil 


PLHJT8L#6 


LD#10 


BD|ACCT#3 


8TO1I0 


PL0lACT#6 


LW,2 


PLICHQ 


STM#U 


PLH|§ID#6 


LWn3 


BwIS0Aj3 


AND^n 


bacct 


LH#13 


13 


AH#13 


PLH|FLQ#6 


Al#13 


PRUN 


STH#13 


PLH|FL(3#6 


STBj2 


PL8?USR#6 


llsB 





STB18 


GISISLN#1 


STB#8 


GIB|XLN#1 


LBj15 


LSERIAL 


LWilo 


9 


BU 


$4^3 


STB4I5 


QfBISLN^l 


BALjII 


MBVSER3 


LH#lo 


BHtXLNKj3 


BSZ 


$♦3 


STBfi5 


GlSIXLNjl 


BAL#11 


mbvsers 


STBj15 


LSERIAL 


LW#6 


BNtS0Ai3 


CM#R6 


RR8IT 


BANZ 


#1^2 


AN0#6 


YFF 


LN#2 


PLICHG 


DlSABLF 





GET USER 
PUT USER ID 

M8VE ONLY ACCt FLaQ T6 PLHIFLG 

ADD IN PNBLD 
AND PRUN 



MeVE SERiS Te CORE 



Hoi 11 1 1 

098 

099 
100 
101 
102 

103 
104 

105 
106 
♦♦** UNOEF 

107 
108 
109 

110 
111 

112 
113 

lU 
115 
116 
117 
118 
119 
120 
121 

122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 



X SEP OS* 
05 00170 
08 00171 
05 00172 
05 00173 
05 00174 

05 00175 
05 00176 
05 00177 
05 00178 

SVM 

OB 00179 
05 00t7A 

05 ooi:7B 

05 0017C 
05 00170 

05 0017E 

05 0017F 



»75 

4*660000 X 

3«>62O000 X 

7^220000 X 

7^260000 X 
6Ae0O051 

2«4onooo N 

6^800048 
6^30005C 
2«FooOOO N 



S^F^nooo 

31100000 
3iF0O000 
3|#00002 
32F0OO00 

6*900000 
6«00006F 



05 00180 
05 00180 3Q60O003 



05 00181 
05 00188 
05 00183 

05 00184 



20C0OC01 
526CO000 
6^300181 
£^000008 



« 
«F« 

#F» 

#F« 
#F# 

# 
CNTSER 



♦F» 

#F# 

*F# 



XW#6 

STW#6 
STBj2 
STBi2 

BALjll 

LIM 
BALju 

BALi3 

LI#15 

STH#15 
MTWjI 

MTWi«l 
LH#4 

BAIjU 
B 



NAME I 



BWSS0a#3 
QttSQAjl 
QlBjUNil 
BBJPN3 

Bating 

RUNPRI 
BATOT 

QNO 
BAT 

UH|FLQj2 

SlBUIS 

StBFiS 

2 

SLiBPRIQ 

ADDl 

M6S1 



CNTSER 



37 



UNQUeUe gYMB ENT«Y 
ADD T9 8CHED QUEUE 

PUT SL9T BACK IN QUEUE 



SET BAT BIT 



ADOl NEEDS UN IN 4 
DEFAULT BATCH PRIBRITY 



PURPBSFt CBUNTS TMF NUMBER »F SERIAL NUMBER? IN A jeB»S SHaKED 
BR EXCLUSIVE CHAIN 



AW#6 

Al#12 

LN#6 

BNCZ 

B 



3 

1 

S«HSLNKi6 

#11 



NAME J MOVSERS 

PURPesrj MUVES SERIAL NUMBERS FRBM THE CHAINS IN RBBAT (SiWJSER 



HOI 



mil i 


SEP 08* 


175 










1134 










#F* 




TB THF IN 


1135 










♦F# 






1136 










# 






1137 










« 






1138 




05 


00l8t> 




MevSERS 


EQU 


$ 


1139 


05 


00185 


3«5oooor 


A 




LN#S 


15 


1140 


05 


00186 


386onOOA 


A 




LW#6 


10 


1141 


05 


00187 


389CO000 


X 




L^#9 


SiyW|SER#6 


114? 


OB 


00188 


359An000 


X 




STW#9 


TSERIAL#5 


1143 


05 


00189 


782CnoO0 


X 




LB»^ 


S*BSTVP#6 


1144 


05 


0018A 


7ii94a000 


X 




LB#9 


SB«RTYj2 


1145 


05 


0018B 


7&9A0000 


X 




STBj9 


RSERIAI#5 


1146 


05 


0018C 


7KrAo000 


X 




LB#15 


LSERIAL#5 


1147 


05 


0018D 


58AC0000 


X 




LHno 


Sii^h:inKj6 


1148 


05 


0018E 


6S»30ni85 






BNE2 


MeVSgRS 


1149 


05 


0018F 


7t>AAn000 


X 




STB#10 


LSERIALjS 


1150 


05 


00190 


E800O00B 


A 




B 


♦11 


nil 










# 






1152 










# 






1153 










#r# 


name: 


RUNSER 


1154 










#F# 






1155 










«P# 


PURP9SFI 


COMPARES 


1156 










#F# 




WITH ALL 


1157 










fF# 




9F ALL RU 


1158 










♦F* 






1159 










# 






1160 










# 






1161 




05 


00191 




RUNSER 


EQU 


t 


1162 


05 


00191 


0^540000 


A 




LH#5 


#13#2 


1163 


05 


00192 


r»30000B 


A 




BEZ 


#11 


1164 




05 


00193 




RUNSERl 


EQU 


$ 


1165 


05 


00193 


0<t!66o0OC 


A 




LN#6 


#12#3 


1166 


05 


00194 


E»30nOOB 


A 




BEZ 


♦11 


1167 


05 


00195 


3«8Anooo 


X 




LW,8 


S*^i:SER#5 


1168 




05 


00196 




RUNSER2 


EQU 


« 


1169 


05 


00196 


318CO00O 


X 




CN«8 


SH«Nl9eRj6 


1170 


05 


00197 


6830009^ 






BE 


MBSvJO 



CBRE CHAINS (TSERIALJ 



3^ 



5ERIAL NUMBER IN A CANDIDATE JOB»S CHaIN 

, NUMBERS IN THE SHAReD 8R EXCLUSIVE CHA 

JdBS AND REJECTS THE CJ IF A MATCH IS F 



HOI 



11 J 


11 < 


SEP 08# 


»75 










1171 




05 


0019» 




RUNSER3 


EQU 


« 


ll7t 


05 


00198 


5li6Cnooo 


X 




LH4 6 


S«NtlNK#6 


1173 


05 


00199 


6?300l96 






BNEZ 


RUNSERa 


117<f 


05 


0019A 


5«J5AOO0O 


X 




LH#5 


SiKNtLNK«5 


117S 


05 


00X9S 


6S>300193 






BNE4 


RUNtSERl 


1176 


05 


0019C 


E<*00O00B 


A 




B 


•U 


1177 










» 






1178 










« 






1179 










#F# 


NAME J 


RUNMNT 


1180 










#F# 






1181 










#F« 


pURPBsri 


GETS THE 


1182 










♦r# 




INF9RMS T 


1183 










♦F# 






1184 










• 






1185 










# 






1186 




05 


0C19W 




RUNMNT 


eou 


$ 


1187 


05 


0019D 


38500001 


A 




LW#S 


1 


1188 


08 


0019E 


SiiAoooo 


X 




LH#1 


$«H}lNKf5 


1189 


05 


0019F 


E*30000B 


A 




BU 


*11 


1190 


OS 


OOIAO 


2ii60n000 


N 




Ll#6 


avrtblne 


1191 




OS 


OOlAi 




RUNiMNTO 


equ 


$ 


ll9g 


05 


OOlAl 


i^Cgnooo 


X 




LN#l? 


S«W2SER#1 


1193 


05 


001A2 


7il!2a!oO0O 


X 




LB#2 


S#B|TYPil 


ll94 


05 


001A3 


6f000lA6 






B 


RUMMNTlB 


1195 




05 


00lA# 




RUNHNTl 


EQU 


$ 


1196 


05 


001A4 


is^ccoooo 


X 




CLMn? 


AVRT8Lj6 


1197 


05 


OOIAS 


6<*3001AC 






BCR#3 


RUNMNT2 


1198 




05 


001A6 




RUNMNT15 


EQU 


t 


1199 


05 


001A6 


t06ffFff 


A 




Al#6 


•1 


iPOO 


05 


00U7 


21600000 


N 




CI#6 


AVRTBLSIZ 


i?Ci 


05 


C01A8 


681001A4 






6GE 


RUNMNTl 


1202? 


05 


001A9 


2«Boo001 


A 




Alill 


1 


1203 


05 


OOlAA 


20Bon001 


A 


RUIMMNT18 


Al^ll 


1 


1204 


05 


OOlAB 


E»O0O00B 


A 




B 


*11 


1205 




05 


OOIA^ 




RUNMNT2 


EQU 


« 


1206 


05 


001 AC 


72840000 


X 




LB#8 


SBIRTY#2 


1207 


05 


OOIAO 


3820O006 


A 




LW#2 


6 



39 



NEXT SERIAL NUMBER fR^M THg CU»S CHAIN ANU 
HE CALLER WHETHER OR NOT IT IS MOUNTED AND IN 



HOI 



mil SEP 08# »75 



40 



1208 


OB OOlAE 


20200000 N 


Al«2 


BATAPE 


1209 


05 OOlAF 


yiBkCiOQO X 


CBj8 


0CT4#2 


IS 10 


05 OOlBo 


6^30009F 


BNE 


MBSJO 


1211 


05 OOlBl 


SiCCoOOO X 


LHjt2 


AVRNBUj6 


1212 


05 001B8 


6S»3001AA 


BNE? 


RUNMNT18 


1813 


05 001B3 


6»00OlAl 


B 


RUNMNTO 



HCl 11 ni SEP 08j ♦ts 

ll?14 
ISIB 
1$16 
1817 

i?A» 

ltl9 

1880 

1881 

182S! 

1883 

1884 

1885 

1886 

1887 

1888 05 00lB# 

1889 

1830 

1831 

1838 05 QOiBk 

1833 OB OOlBS 

1834 OS 0OIB6 

1835 0!5 001B7 

1836 OS OOlBS 

1837 OS 001B9 

1838 08 OOXBA 

1839 OS OOiBB 
18*0 OS OOlBC 
1841 05 OOlBO 

♦ «*• UNDEF CeiM 
•**♦ ILIEQaL af 
♦*♦♦ ILLEGAL Cr 

1848 OS OOlBE 

1843 OB OOlBF 

1844 05 OOlCO 

1845 05 OOlCl 
*♦»* UNDEF CetM 
♦♦•♦ ILLEGAL AF 



41 



5306n000 X 
$«30009F 
81400000 N 
681001C5 

7^960000 ^ 
3U900000 X 
78»f$0000 X 
glfOOOFF A 

688ono9f^ 
OUOOOOOO A 



6AB0OOS1 
80400001 A 
6AB00048 
00000000 A 



# 

# 

«F* 

«E« 

#E# 

#F* 

#F# 

#F# 

«F# 

# 

« 
# 
MBSNR 

# 

# 
MBS I 



PAQE 



NAME I 



MBSNR (M8S1) 



pURPesrJ INCREMENTS THE PRIBRITY INCREMENT ^F J^BS WHICH HAVE 

BEEN RggECTED BY SLjPIt IF THE NEW PRIBRlTY INCREMENT 
EXCE|0$ 256 THE JBB IS MftVED UP 0N| PRIBRITY, PRl^RfT 
tF» JBBS ARE HANDED T9 MBSF T» HANDLE t 



NBT ENftUQW RESeuRCFS • INCREMENT PRIORITY* 

TRY NEXT JBB 

EQU i 

iKCREMrNT PRIORITY BY SLIPI UNLESS JOB FITS IN 

NO Partitions or exit if job is f prioritYi 

THEN TRY NEXT JOB IN PRIORITY CHAINS 



MTHjO 

BEZ 

CIj4 

BQE 

LBi9 

AWi9 

STB#9 

CI#9 

OLE 

DISABLF 



BALjll 
Al44 
BAL#11 
ENABLE 



BH|PART#3 

MBSJO 

FIPRI 

MBSFl 

BBIPI#3 

SLIPI 

BBtPlj3 

85S 

MBSJO 



BATUNQ 

1 

BATOT 



DONT I NCR 

ANYWHERE 



IF NOT RUNNABLE 



MOVE UP 

ONE 

PRIORITY 



NOl lllli SEP 08* »7S <>2 

#### ILLEGAL CF 

12<>fe 08 OClCg 6<>40ft0A0 BDRj4 MBSiJ 



MOI 



llHl 
1247 

1»4!» 
IgBG 

lasi 

1253 
12S4 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 

1878 

1279 

1280 

undef 

ILLEGAL 
ILLEGAL 



SEP 08* «75 



05 
05 
05 
05 
05 
05 
05 
05 
05 



001C3 
001C4 
QOlCS 
001C6 
OOlC? 
00iC8 
001C9 
OOlCA 
OOlCB 



05 
05 
COM 
AF 

cr 



00 ICC 

00 1 CD 



21400000 N 

6»10009F 

3«50OQ00 X 

28600000 N 

F88C0005 A 

40800000 X 

518C0000 X 

6^2000'^ 
6<^600lC7 



28200000 A 
0^)000000 A 



« 
« 

#Ft 
#F# 

»r# 

«Ft 

#F# 

#F# 

• 

# 

« 

# 

MBSF 

HBSFl 
MB9CKF 



# 

# 

♦F# 

#F# 

♦F* 

#F# 

# 

MBSX 



PAGE 



NAME 8 






MBSF 



PURPBSri HANDLES PRIORITY fF» JBBS WHICH CANNBT Br PRESENTLY 
SCHEDULED. |F THE J8B COULD BE RUN IF ALL PRESENTLY 
ALLOCATED RESOURCES WERE FREE* NO U0B IS SCHEDULEOt 
0THERWI$E SCHEDULING CONTINUES! 



TRY NEXT JOB IN PRIORITY CHAINS OR EXIT IF 

CURRENT CANDIDATE IS F PRIORITY 

CUk FIPRI 

BL M6SJ0 

LW#f BaDRS 

LI#6 SVIRSIZ 

L8#8 #5f6 

ANDiS M7 

CN#8 8HjRT0T#6 

BQ MBSJo cant RUNfKEEP GOING 

B0Rj6 HBSCKF 



NAME! 
PURPOSFI 



Lli2 
DISABLF 



MBSX (MBSXi) 

CLEARS PARTITION LOCK AND 
TO THE SNULL QUEUE • THEN 



RETURNS STOLEN USER NUMBLR 
EXITS, MBSXl JUST EXITS' 



MOl 



mil SEP 08# 



«#«• 
«•«« 
»«#« 



1881 

12«3 
1284 
1885 

UNDrr 



OR 

05 
05 
05 
05 

caM 



OOlCE 

ooicr 

OOlOo 
OOlDl 
001D2 



ILLEGAL 

ILLKQAL 
1286 

1287 

1288 

1289 

1290 
1291 



AF 
CF 



OR 
05 
05 
05 
05 



001D3 
001D4 
001D5 
00106 

001D7 



♦ 75 

3^200000 X 
#^200000 X 
6»30niD2 
6A3ono5C 

ouoonooo A 



2^800001 A 
38>B0O000 X 
0820O07O A 
0^500000 ^ 
E800OO0i A 



CQNTReL SECTliN 8U"MaRTj ol 00000 

05 001D8 



MBSXl 



PT 
PT 1 



STW#2 

XWi8 

BIZ 

BAL*3 

F^ABLE 



LI#11 

STW#11 

LCI 

PLM#5 

6 

FND 



PL ILK 
PLtCHQ 

MBSXl 

QHO 



1 

svz 

7 

TMPSTK 

♦U 



UNLOCK TABLES 
RELEASE USER g IF ANY 

PUT BACK IN QUEUE 



44 



02 00000 PT 



RETURN 



03 00000 PT 1 



04 00000 PT 
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* SYHBeL VAlUES 

AVRD/OOOOOOXE '?* 
B9RDR/00000020 S 
CKRSQ/o5 0003i 
JEIGL/O000000<t 
MBSAi/05 OOOBB 

MBSCM2/05 0O0E9 
MBSFi/o5 OOlCS 
MBSJ/O5 OOOAO 
MBSePiPl/FFFI^FFF^ S 
MBSftP3/05 000a<^ 
MBSRJ/05 OOU7 
MBSSCHl/05 0013^ 
MBSl/05 OOO6F 

PACCT/oOOO<>000 
QNO/05 OOO5C 
RUNHnT/05 0019D 
RUNHNT18/0S OOiAA 
RUN8ERg/0S 0019^ 
RIO/OOOOOOOA 
Rl4/0000000£ 
RO/00000004 
R8/OO0O0008 

♦ FXTERNAL DeFINITIBNS 

M88/05 0006«> 

• PRIMARY REFERENCES 

ADOl AyRTD 

BaTAPE ttBjPI 

BHlSfD ^HIsLnK 

BT31TBo ttWiSDA 

FIPPI ^lUSPN 

QlBlRID ^IBISLN 

LSEflAL "BS6P# 

PIBIMAX HLBtHiN 

PLNlTl ^iHiTBL 

SIBFIS iJBUAlS 

SBJHQ i>B|R8DF 



4S 



BACCT/OOOOOOlF S 
CKfiRQ/OB 00014 
CKRSl/QB 00036 

LCLQL/00000008 
MB8CKF/05 001C7 

MaSCS#/05 000D2 
MBSQR/05 00i#4 
MB8JO/O5 0009F 
mB8BP#2/00000000 
M8SBP4/05 0002B 
M88RO/O5 OOOCD 
M88SP3/05 00108 
M8S3/0B 00084 
PNBLD/00008000 
RBLQt/00000002 
RUnMNTO/05 OOlAt 
RUNMNT2/05 OOIAC 
RUNSeR3/05 O0198 
Rll/OOOOOOOB 
RlB/OOOOOOOF 
RS/OOOOOOOS 
R9/00000Q09 

MB8BP/05 00000 

AVRNBU 

BBJRID 

BHJTiME 

B4WJRE8 

61 JFRE 

GiBJUN 

M7 

PLBIUSR 

PIHJTU 

S}BUIS 

SBJRTY 



BATQT/05 00048 
CKRS/05 00033 
CKRSp/05 00037 
MASK/FUNC 
MBSCM/05 OOOEO 
MB8CS*0/05 OOOD6 
MB8I/05 OOIB4 
MBSJ2/0S 000A6 
MBS8P1/05 OOOIF 
MBSPg/05 00099 
M8SSCH/O5 ooiac 
MBSX/05 OOlCC 
HBVSERS/OS 00185 
PLK/OOOOOOOl 
REPART/05 00005 
RUNMnTI/05 001A4 
RUNSER/05 00191 
RO/00000000 
R12/OO0O000C 
R2/00000002 
R6/00000006 
SETRS/05 00040 



AyWTBL 
BDIACCT 
BHITPRi 
BSJCRES 

Ql tPES 

QlBJXLN 

M8 

PLOJACT 

RCVRFLQ 

SIMBSF 

SBITQ 



avrtblne 

bhjmpri 

bh:xlnk 

DCT4 

6i:SDA 

QIHITIM 

NB31TB0 

PLHICUR 

rrbit 

SiBlTYP 

SNJRBCU 



0ATUNQ/O5 00051 
CKRSIJ/OS 0003A 
CNT8IR/08 OOI80 
MBSA/O5 OOOBi 
M8SCM1/05 000E6 
M8SF/05 001C3 
MBSIS/OS OOOEE 
MBSNR/Ob OOIB4 
MBS0P2/0S 00022 
MBSR/05 OO0C6 
liBsSCHO/05 OOlgD 
MBSXl/05 001P2 
NMAS»^/FUNC 
PRUN/00008000 
REPARTl/05 OOOOB 
RUNMNT15/05 001A6 
RUNSERl/05 00193 
Rl/OOOOOOOl 
RI3/OOOOOOOD 
R3/00000003 
R7/00000007 
UFLAQS/00000001 



AVRTBLSIZ 


BADRS 


iHlllNK 


bhjpaRt 


BltASPN 


BSIJCRES 


FIND 


FINOl 


QIBJPRI 


QIBIPHT 


^ebit 


lpart 


PLlCHQ 


PLJLK 


PLHIFLQ 


PLHfSJO 


RSERlAl 


RUNPRi 


$iKNtUNK 


SiWSStR 


shsrbsuh 


SHSRQtU 
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SnIRSCU ^HJrT8T 
SVZ TMPSTK 

YFF 

* m SECBNDARY REFERENCE*' 

* UNDEFINED SYMBeWS 

BAT 

• ERRaR SEVERITY UEVEUI 3 

♦ ERR9R LINES 

678 688 

1106 1241 



SLJBPRI0 
TSERIAL 



919 

1?4S 



8LJPI 
UBiBL 



SNULL 

uBjri 



925 
1280 



972 
1285 



UHiFwa 



sviv 

X80 



46 



977 



1097 



